<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    Dim objXMLHttp
    Set objXMLHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
    objXMLHttp.open "POST", "http://cngvm00100.apac.bosch.com:8510/api/sso/idtoken", False
    objXMLHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objXMLHttp.send Request.BinaryRead(Request.TotalBytes)
    Response.Write objXMLHttp.responseText
    Set objXMLHttp = Nothing
End If
%>
